home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1995 August / macformat-027.iso / mac / Shareware City / Developers / Oberon⁄F / Mac / Mod / WindowMgr (.txt) < prev   
Encoding:
Oberon Document  |  1994-06-07  |  7.2 KB  |  140 lines  |  [oODC/obnF]
  1. Documents.StdDocumentDesc
  2. Documents.DocumentDesc
  3. Containers.ViewDesc
  4. Views.ViewDesc
  5. Stores.StoreDesc
  6. Documents.ModelDesc
  7. Containers.ModelDesc
  8. Models.ModelDesc
  9. Stores.ElemDesc
  10. TextViews.StdViewDesc
  11. TextViews.ViewDesc
  12. TextModels.StdModelDesc
  13. TextModels.ModelDesc
  14. TextModels.AttributesDesc
  15. Geneva
  16. Geneva
  17. StdStamps.StdViewDesc
  18. Geneva
  19. Geneva
  20. Geneva
  21. MODULE MacWindowMgr;
  22. (* cp 
  23.     Window definition support eliminated
  24.     Window IS GrafPort, no WindowPeek type
  25.     PinRect moved to QuickDraw
  26.     IMPORT SYSTEM, MacTypes, MacQuickDraw, MacCQuickDraw;
  27.     CONST
  28.         documentProc* = 0;
  29.         dBoxProc* = 1;
  30.         plainDBox* = 2;
  31.         altDBoxProc* = 3;
  32.         noGrowDocProc* = 4;
  33.         rDocProc* = 16;
  34.         dialogKind* = 2;
  35.         userKind* = 8;
  36.         inDesk* = 0;
  37.         inMenuBar* = 1;
  38.         inSysWindow* = 2;
  39.         inContent* = 3;
  40.         inDrag* = 4;
  41.         inGrow* = 5;
  42.         inGoAway* = 6;
  43.         inZoomIn* = 7;
  44.         inZoomOut* = 8;
  45.         noConstraint* = 0;
  46.         hAxisOnly* = 1;
  47.         vAxisOnly* = 2;
  48.         deskPatID* = 16;
  49.         CODE = 1;
  50.     TYPE
  51.         WindowPtr* = POINTER TO WindowRecord;
  52.         WindowRecord* = RECORD (MacCQuickDraw.CGrafPort)
  53.             windowKind*: INTEGER;
  54.             visible*,
  55.             hilited*,
  56.             goAwayFlag*,
  57.             spareFlag*: BOOLEAN;
  58.             strucRgn*,
  59.             contRgn*,
  60.             updateRgn*: MacQuickDraw.RgnHandle;
  61.             windowDefProc*: MacTypes.ProcHandle;
  62.             dataHandle*: MacTypes.Handle;
  63.             titleHandle*: MacTypes.StringHandle;
  64.             titleWidth*: INTEGER;
  65.             controlList*: MacTypes.Handle;
  66.             nextWindow*: WindowPtr;
  67.             windowPic*: MacQuickDraw.PicHandle;
  68.             refCon*: LONGINT
  69.         END;
  70.     (** Initialization and Allocation **)
  71.     PROCEDURE [CODE] GetWMgrPort* (VAR wPort: MacQuickDraw.GrafPtr) 0A9H, 010H;
  72.     PROCEDURE [CODE] NewWindow* (wStorage: MacTypes.Ptr; boundsRect: MacTypes.Rect; title: MacTypes.Str255;
  73.                                         visible: BOOLEAN; theProc: INTEGER; behind: WindowPtr;
  74.                                         goAwayFlag: BOOLEAN; refCon: LONGINT): WindowPtr 0A9H, 013H;
  75.     PROCEDURE [CODE] GetNewWindow* (windowID: INTEGER; wStorage: MacTypes.Ptr;
  76.                                            behind: WindowPtr): WindowPtr 0A9H, 0BDH;
  77.     PROCEDURE [CODE] CloseWindow* (theWindow: WindowPtr) 0A9H, 02DH;
  78.     PROCEDURE [CODE] DisposeWindow* (theWindow: WindowPtr) 0A9H, 014H;
  79.     (** Window Display **)
  80.     PROCEDURE [CODE] SetWTitle* (theWindow: WindowPtr; title: MacTypes.Str255) 0A9H, 01AH;
  81.     PROCEDURE [CODE] GetWTitle* (theWindow: WindowPtr; VAR title: MacTypes.Str255) 0A9H, 019H;
  82.     PROCEDURE [CODE] SelectWindow* (theWindow: WindowPtr) 0A9H, 01FH;
  83.     PROCEDURE [CODE] HideWindow* (theWindow: WindowPtr) 0A9H, 016H;
  84.     PROCEDURE [CODE] ShowWindow* (theWindow: WindowPtr) 0A9H, 015H;
  85.     PROCEDURE [CODE] ShowHide* (window: WindowPtr; showFlag: BOOLEAN) 0A9H, 008H;
  86.     PROCEDURE [CODE] HiliteWindow* (theWindow: WindowPtr; fHilite: BOOLEAN) 0A9H, 01CH;
  87.     PROCEDURE [CODE] BringToFront* (theWindow: WindowPtr) 0A9H, 020H;
  88.     PROCEDURE [CODE] SendBehind* (theWindow, behindWindow: WindowPtr) 0A9H, 021H;
  89.     PROCEDURE [CODE] FrontWindow* (): WindowPtr 0A9H, 024H;
  90.     PROCEDURE [CODE] DrawGrowIcon* (theWindow: WindowPtr) 0A9H, 004H;
  91.     (** Mouse Location **)
  92.     PROCEDURE [CODE] FindWindow* (thePoint: MacTypes.Point; VAR theWindow: WindowPtr): INTEGER 0A9H, 02CH;
  93.     PROCEDURE [CODE] TrackGoAway* (theWindow: WindowPtr; thePt: MacTypes.Point): BOOLEAN 0A9H, 01EH;
  94.     (** Window Movement and Sizing **)
  95.     PROCEDURE [CODE] MoveWindow* (theWindow: WindowPtr; hGlobal, vGlobal: INTEGER; front: BOOLEAN) 0A9H, 01BH;
  96.     PROCEDURE [CODE] DragWindow* (theWindow: WindowPtr; startPt: MacTypes.Point; boundsRect: MacTypes.Rect) 0A9H, 025H;
  97.     PROCEDURE [CODE] GrowWindow* (theWindow: WindowPtr; startPt: MacTypes.Point; bBox: MacTypes.Rect): LONGINT 0A9H, 02BH;
  98.     PROCEDURE [CODE] SizeWindow* (theWindow: WindowPtr; w, h: INTEGER; fUpdate: BOOLEAN) 0A9H, 01DH;
  99.     (** Update Region Maintenance **)
  100.     PROCEDURE [CODE] InvalRect* (badRect: MacTypes.Rect) 0A9H, 028H;
  101.     PROCEDURE [CODE] InvalRgn* (badRgn: MacQuickDraw.RgnHandle) 0A9H, 027H;
  102.     PROCEDURE [CODE] ValidRect* (goodRect: MacTypes.Rect) 0A9H, 02AH;
  103.     PROCEDURE [CODE] ValidRgn* (goodRgn: MacQuickDraw.RgnHandle) 0A9H, 029H;
  104.     PROCEDURE [CODE] BeginUpdate* (theWindow: WindowPtr) 0A9H, 022H;
  105.     PROCEDURE [CODE] EndUpdate* (theWindow: WindowPtr) 0A9H, 023H;
  106.     (** Miscellaneous Utilities **)
  107.     PROCEDURE [CODE] SetWRefCon* (theWindow: WindowPtr; data: LONGINT) 0A9H, 018H;
  108.     PROCEDURE [CODE] GetWRefCon* (theWindow: WindowPtr): LONGINT 0A9H, 017H;
  109.     PROCEDURE [CODE] SetWindowPic* (theWindow: WindowPtr; pic: MacQuickDraw.PicHandle) 0A9H, 02EH;
  110.     PROCEDURE [CODE] GetWindowPic* (theWindow: WindowPtr): MacQuickDraw.PicHandle 0A9H, 02FH;
  111.     PROCEDURE [CODE] DragGrayRgn* (theRgn: MacQuickDraw.RgnHandle; startPt: MacTypes.Point;
  112.                                 limitRect, slopRect: MacTypes.Rect;  axis: INTEGER;
  113.                                 actionProc: MacTypes.ProcPtr): LONGINT 0A9H, 005H;
  114.     (** Low-Level Routines **)
  115.     PROCEDURE [CODE] ClipAbove* (window: WindowPtr) 0A9H, 00BH;
  116.     PROCEDURE [CODE] SaveOld* (window: WindowPtr) 0A9H, 00EH;
  117.     PROCEDURE [CODE] DrawNew* (window: WindowPtr; fUpdate: BOOLEAN) 0A9H, 00FH;
  118.     PROCEDURE [CODE] PaintOne* (window: WindowPtr; clobberedRgn: MacQuickDraw.RgnHandle) 0A9H, 00CH;
  119.     PROCEDURE [CODE] PaintBehind* (startWindow:  WindowPtr;
  120.                                     clobberedRgn: MacQuickDraw.RgnHandle) 0A9H, 00DH;
  121.     PROCEDURE [CODE] CalcVis* (window: WindowPtr) 0A9H, 009H;
  122.     PROCEDURE [CODE] CalcVisBehind* (startWindow: WindowPtr;
  123.                                 clobberedRgn: MacQuickDraw.RgnHandle) 0A9H, 00AH;
  124.     (** 128K ROM **)
  125.     PROCEDURE [CODE] TrackBox* (theWindow: WindowPtr; thePt: MacTypes.Point; partCode: INTEGER): BOOLEAN 0A8H, 03BH;
  126.     PROCEDURE [CODE] ZoomWindow* (theWindow: WindowPtr; partCode: INTEGER; front: BOOLEAN) 0A8H, 03AH;
  127.     PROCEDURE [CODE] InitWindows*    0A9H, 012H;
  128. END MacWindowMgr.
  129. TextControllers.StdCtrlDesc
  130. TextControllers.ControllerDesc
  131. Containers.ControllerDesc
  132. Controllers.ControllerDesc
  133. TextRulers.StdRulerDesc
  134. TextRulers.RulerDesc
  135. TextRulers.StdStyleDesc
  136. TextRulers.StyleDesc
  137. TextRulers.AttributesDesc
  138. Geneva
  139. Documents.ControllerDesc
  140.